home *** CD-ROM | disk | FTP | other *** search
/ Visual Intercept / Visual Intercept.iso / sheriff.z / isincdfn.bas < prev    next >
BASIC Source File  |  1996-08-26  |  11KB  |  278 lines
  1. Attribute VB_Name = "IIIncident"
  2. '----------------------------------------------------------------------------
  3. '   isincdfn.bas is a member of the Visual Intercept Visual Basic API.
  4. '   Copyright (c) 1996 Elsinore Technologies, Inc. All rights reserved.
  5. '
  6. '   This software is protected by copyright law. Unauthorized reproduction
  7. '   or distribution of this program, or any portion of it, may result in
  8. '   severe civil or criminal penalties. If you have any questions about
  9. '   your redistribution rights, please contact Elsinore Technologies, Inc.
  10. '
  11. '   Creator: Albert J. Lin (AJL)
  12. '   History: Created 09/17/95
  13. '----------------------------------------------------------------------------
  14.  
  15.  
  16. '----------------------------------------------------------------------------
  17. ' Visual Intercept Incident Declaration:
  18. '----------------------------------------------------------------------------
  19. Public Type VIIncident
  20.     incidentID              As Long
  21.     projectName             As String
  22.     versionName             As String
  23.     name                    As String
  24.     subject                 As String
  25.     description             As String
  26.     resolution              As String
  27.     workAround              As String
  28.     requesterID             As String
  29.     assignedID              As String
  30.     changeID                As String
  31.     startTime               As String
  32.     assignTime              As String
  33.     changeTime              As String
  34.     category                As String
  35.     status                  As String
  36.     priority                As String
  37.     severity                As String
  38. End Type
  39.  
  40. Public Type IEIncident
  41.     incidentID              As Long
  42.     lpProjectName           As String
  43.     lpVersionName           As String
  44.     lpName                  As String
  45.     lpSubject               As String
  46.     lpDescription           As String
  47.     lpResolution            As String
  48.     lpWorkAround            As String
  49.     lpRequesterID           As String
  50.     lpAssignedID            As String
  51.     lpChangeID              As String
  52.     lpStartTime             As String
  53.     lpAssignTime            As String
  54.     lpChangeTime            As String
  55.     lpCategory              As String
  56.     lpStatus                As String
  57.     lpPriority              As String
  58.     lpSeverity              As String
  59.     
  60.     lnProjectName           As Integer
  61.     lnVersionName           As Integer
  62.     lnName                  As Integer
  63.     lnSubject               As Integer
  64.     lnDescription           As Integer
  65.     lnResolution            As Integer
  66.     lnWorkAround            As Integer
  67.     lnRequesterID           As Integer
  68.     lnAssignedID            As Integer
  69.     lnChangeID              As Integer
  70.     lnStartTime             As Integer
  71.     lnAssignTime            As Integer
  72.     lnChangeTime            As Integer
  73.     lnCategory              As Integer
  74.     lnStatus                As Integer
  75.     lnPriority              As Integer
  76.     lnSeverity              As Integer
  77. End Type
  78.  
  79. Public Declare Function IIInsertIncident Lib "isapi.dll" (pIncident As IEIncident) As Long
  80. Public Declare Function IIDeleteIncident Lib "isapi.dll" (pIncident As IEIncident, ByVal clause As String) As Long
  81. Public Declare Function IIModifyIncident Lib "isapi.dll" (pIncident As IEIncident, ByVal clause As String) As Long
  82. Public Declare Function IIFetchIncident Lib "isapi.dll" (pIncident As IEIncident, ByVal clause As String) As Long
  83. Public Declare Function IIFetchIncidents Lib "isapi.dll" (ByRef pnTotal As Long, ByVal clause As String) As Long
  84. Public Declare Function IIGetIncident Lib "isapi.dll" (pIncident As IEIncident, ByVal nIndex As Long) As Long
  85.  
  86. Public Function VBIIInitIncident(incident As IEIncident)
  87.  
  88.     incident.lnProjectName = lnIIProjectName
  89.     incident.lnVersionName = lnIIVersionName
  90.     incident.lnName = lnIIIncidentName
  91.     incident.lnSubject = lnIISubject
  92.     incident.lnDescription = lnIIDescription
  93.     incident.lnResolution = lnIIDescription
  94.     incident.lnWorkAround = lnIIDescription
  95.     incident.lnRequesterID = lnIIUserID
  96.     incident.lnAssignedID = lnIIUserID
  97.     incident.lnChangeID = lnIIUserID
  98.     incident.lnStartTime = lnIIDate
  99.     incident.lnAssignTime = lnIIDate
  100.     incident.lnChangeTime = lnIIDate
  101.     incident.lnCategory = lnIIParameter
  102.     incident.lnStatus = lnIIParameter
  103.     incident.lnPriority = lnIIParameter
  104.     incident.lnSeverity = lnIIParameter
  105.  
  106.     incident.incidentID = 0
  107.     incident.lpProjectName = String(incident.lnProjectName, 0)
  108.     incident.lpVersionName = String(incident.lnVersionName, 0)
  109.     incident.lpName = String(incident.lnName, 0)
  110.     incident.lpSubject = String(incident.lnSubject, 0)
  111.     incident.lpDescription = String(incident.lnDescription, 0)
  112.     incident.lpResolution = String(incident.lnResolution, 0)
  113.     incident.lpWorkAround = String(incident.lnWorkAround, 0)
  114.     incident.lpRequesterID = String(incident.lnRequesterID, 0)
  115.     incident.lpAssignedID = String(incident.lnAssignedID, 0)
  116.     incident.lpChangeID = String(incident.lnChangeID, 0)
  117.     incident.lpStartTime = String(incident.lnStartTime, 0)
  118.     incident.lpAssignTime = String(incident.lnAssignTime, 0)
  119.     incident.lpChangeTime = String(incident.lnChangeTime, 0)
  120.     incident.lpCategory = String(incident.lnCategory, 0)
  121.     incident.lpStatus = String(incident.lnStatus, 0)
  122.     incident.lpPriority = String(incident.lnPriority, 0)
  123.     incident.lpSeverity = String(incident.lnSeverity, 0)
  124.  
  125. End Function
  126.  
  127.  
  128. Public Function VBIIInsertIncident(userIncident As VIIncident) As Long
  129.     Dim incident As IEIncident
  130.     Dim err As Long
  131.     
  132.     Call VBIIInitIncident(incident)
  133.     
  134.     Call VBIIPrepareIncident(incident, userIncident)
  135.     
  136.     err = IIInsertIncident(incident)
  137.     
  138.     VBIIInsertIncident = err
  139.     
  140. End Function
  141.  
  142. Public Function VBIIModifyIncident(userIncident As VIIncident, ByRef clause As String) As Long
  143.     Dim incident As IEIncident
  144.     Dim err As Long
  145.     
  146.     Call VBIIInitIncident(incident)
  147.     
  148.     Call VBIIPrepareIncident(incident, userIncident)
  149.       
  150.     err = IIModifyIncident(incident, clause)
  151.     
  152.     VBIIModifyIncident = err
  153.     
  154. End Function
  155.  
  156. Public Function VBIIConvertIncident(incident As IEIncident, userIncident As VIIncident)
  157.  
  158.     userIncident.incidentID = incident.incidentID
  159.     userIncident.projectName = incident.lpProjectName
  160.     userIncident.versionName = incident.lpVersionName
  161.     userIncident.name = incident.lpName
  162.     userIncident.subject = incident.lpSubject
  163.     userIncident.description = incident.lpDescription
  164.     userIncident.resolution = incident.lpResolution
  165.     userIncident.workAround = incident.lpWorkAround
  166.     userIncident.requesterID = incident.lpRequesterID
  167.     userIncident.assignedID = incident.lpAssignedID
  168.     userIncident.changeID = incident.lpChangeID
  169.     userIncident.startTime = incident.lpStartTime
  170.     userIncident.assignTime = incident.lpAssignTime
  171.     userIncident.changeTime = incident.lpChangeTime
  172.     userIncident.category = incident.lpCategory
  173.     userIncident.status = incident.lpStatus
  174.     userIncident.priority = incident.lpPriority
  175.     userIncident.severity = incident.lpSeverity
  176.   
  177. End Function
  178.  
  179. Public Function VBIIPrepareIncident(incident As IEIncident, userIncident As VIIncident)
  180.  
  181.     incident.incidentID = userIncident.incidentID
  182.     incident.lpProjectName = userIncident.projectName
  183.     incident.lpVersionName = userIncident.versionName
  184.     incident.lpName = userIncident.name
  185.     incident.lpSubject = userIncident.subject
  186.     incident.lpDescription = userIncident.description
  187.     incident.lpResolution = userIncident.resolution
  188.     incident.lpWorkAround = userIncident.workAround
  189.     incident.lpRequesterID = userIncident.requesterID
  190.     incident.lpAssignedID = userIncident.assignedID
  191.     incident.lpChangeID = userIncident.changeID
  192.     incident.lpStartTime = userIncident.startTime
  193.     incident.lpAssignTime = userIncident.assignTime
  194.     incident.lpChangeTime = userIncident.changeTime
  195.     incident.lpCategory = userIncident.category
  196.     incident.lpStatus = userIncident.status
  197.     incident.lpPriority = userIncident.priority
  198.     incident.lpSeverity = userIncident.severity
  199.  
  200.     incident.lnProjectName = Len(userIncident.projectName)
  201.     incident.lnVersionName = Len(userIncident.versionName)
  202.     incident.lnName = Len(userIncident.name)
  203.     incident.lnSubject = Len(userIncident.subject)
  204.     incident.lnDescription = Len(userIncident.description)
  205.     incident.lnResolution = Len(userIncident.resolution)
  206.     incident.lnWorkAround = Len(userIncident.workAround)
  207.     incident.lnRequesterID = Len(userIncident.requesterID)
  208.     incident.lnAssignedID = Len(userIncident.assignedID)
  209.     incident.lnChangeID = Len(userIncident.changeID)
  210.     incident.lnStartTime = Len(userIncident.startTime)
  211.     incident.lnAssignTime = Len(userIncident.assignTime)
  212.     incident.lnChangeTime = Len(userIncident.changeTime)
  213.     incident.lnCategory = Len(userIncident.category)
  214.     incident.lnStatus = Len(userIncident.status)
  215.     incident.lnPriority = Len(userIncident.priority)
  216.     incident.lnSeverity = Len(userIncident.severity)
  217.  
  218. End Function
  219.  
  220.  
  221. Public Function VBIIFetchIncident(userIncident As VIIncident, ByRef clause As String) As Long
  222.     Dim incident As IEIncident
  223.     Dim err As Long
  224.  
  225.     Call VBIIInitIncident(incident)
  226.     
  227.     Call VBIIPrepareIncident(incident, userIncident)
  228.  
  229.     err = IIFetchIncident(incident, clause)
  230.     
  231.     If err = 0 Then
  232.         Call VBIIConvertIncident(incident, userIncident)
  233.     End If
  234.  
  235.     VBIIFetchIncident = err
  236.     
  237. End Function
  238.  
  239. Public Function VBIIDeleteIncident(userIncident As VIIncident, ByRef clause As String) As Long
  240.     Dim incident As IEIncident
  241.     Dim err As Long
  242.     
  243.     Call VBIIInitIncident(incident)
  244.     
  245.     Call VBIIPrepareIncident(incident, userIncident)
  246.     
  247.     err = IIDeleteIncident(incident, clause)
  248.        
  249.     VBIIDeleteIncident = err
  250.     
  251. End Function
  252.  
  253. Public Function VBIIFetchIncidents(ByRef rnTotal As Long, ByRef clause As String) As Long
  254.     Dim err As Long
  255.     
  256.     err = IIFetchIncidents(rnTotal, clause)
  257.         
  258.     VBIIFetchIncidents = err
  259.     
  260. End Function
  261.  
  262. Public Function VBIIGetIncident(userIncident As VIIncident, ByVal nIndex As Long) As Long
  263.     Dim incident As IEIncident
  264.     Dim err As Long
  265.     
  266.     Call VBIIInitIncident(incident)
  267.     
  268.     err = IIGetIncident(incident, nIndex)
  269.     
  270.     If err = 0 Then
  271.         Call VBIIConvertIncident(incident, userIncident)
  272.     End If
  273.     
  274.     VBIIGetIncident = err
  275.     
  276. End Function
  277.  
  278.